######################################################################
# Time-stamp: <03/10/26 19:14:21 ostolop>
#
# Data Selection dynamic data routines
######################################################################
package EP::EPC::Interface::Data_Transformation;

use strict;

use EP::EPC::Interface;
use EP::Config;

=head1 NAME

EPC_DD::Data_Selection

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 METHODS

=over

=back

=cut

my $DATA_UPLOAD_EPC_ID; # To be retrieved from the database!!

sub newDD {
  my $proto = shift;
  my $ep_query_doc = shift;
  my $query = shift;
  my $DDD = shift;

  my $class = ref($proto) || $proto;
  my $self  = {};
  bless $self, $class;

  $self->initialize($ep_query_doc, $query, $DDD);
  return $self;
}

sub initialize {
  my $self = shift;
  $self->{epc_query} = shift;
  $self->{query} = shift;
  $self->{DDD} = shift;

  $DATA_UPLOAD_EPC_ID = 1; # TODO: from database!

  return;
}

1;
